home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Applications / Demos_Demo folder / Demos_Info folder / Demos™ Demonstration / More Models / Q Market < prev    next >
Text File  |  1993-05-28  |  8KB  |  343 lines
  1. { From user A Lumens, Project Q_marketing at Fri, May 28, 1993 4:03 PM}
  2.  
  3.  
  4. { System Variables with non-default values: }
  5. Typechecking := 1
  6. Checking := 1
  7. Saveoptions := 2
  8. Savevalues := 0
  9.  
  10.  
  11. { Non-default Time SysVar value: }
  12. Time := [0]
  13.  
  14. Project Q_marketing
  15. Title: Q software market analysis
  16. Description: A model to forecast sales of Q, a new software product, and to examine pricing.  ~
  17. The model forecasts sales over the next 5 years, assuming a growing market and growing market share (penetration) by Q.~
  18. We assume an uncertain elasticity of demand to price.~
  19. This allows exploration to find the effect of pricing on overall profits.
  20. Author: Max Henrion
  21. Date: Tue, Jan 28, 1992 8:34 AM
  22. Saveauthor: A Lumens
  23. Savedate: Fri, May 28, 1993 4:03 PM
  24. Defaultsize: 36,20
  25. Diagstate: 1,4,40,506,319,0
  26. Windstate: 1,88,98
  27. Fontstyle: Helvetica, 12
  28. Fileinfo: 0,-6,5798,Project Q_marketing,Q demo
  29. Getresource Pagesetup,1
  30.  
  31. Decision Price
  32. Title: Price
  33. Units: $/unit
  34. Definition: 500
  35. Location: 224,80
  36. Nodesize: 36,20
  37.  
  38. Chance Unit_cost
  39. Title: Unit~
  40. cost
  41. Units: $/unit
  42. Definition: Normal(130,20)
  43. Location: 224,24
  44. Nodesize: 36,20
  45.  
  46. Chance Units_sold
  47. Title: Units~
  48. sold
  49. Units: units
  50. Definition: Total_market * Market_share
  51. Location: 312,136
  52. Nodesize: 36,20
  53.  
  54. Chance Net_revenue
  55. Title: Net~
  56. revenue
  57. Units: $/year
  58. Definition: (Price - Unit_cost) * Units_sold
  59. Location: 312,80
  60. Nodesize: 36,20
  61. Windstate: 1,56,66
  62.  
  63. Objective Profit
  64. Title: Profit
  65. Units: $/year
  66. Definition: Net_revenue -  Fixed_cost
  67. Location: 408,80
  68. Nodesize: 36,20
  69.  
  70. Chance Fixed_cost
  71. Title: Fixed~
  72. cost
  73. Units: $/year
  74. Definition: Lognorm80(1.5M, 2M)
  75. Location: 312,24
  76. Nodesize: 36,20
  77.  
  78. Chance Total_market
  79. Title: Market~
  80. size
  81. Definition: Market_now*(1 + Market_growth)^(Year - 1992)
  82. Location: 224,136
  83. Nodesize: 36,20
  84.  
  85. Index Year
  86. Title: Year
  87. Units: AD
  88. Definition: Sequence(1992, 1997)
  89. Location: 136,280
  90. Nodesize: 36,20
  91. Nodeinfo: 1,1,0,1,1,1,0
  92.  
  93. Chance Market_growth
  94. Title: Market~
  95. growth
  96. Units: /year
  97. Definition: Lognormal(20%, 1.5)
  98. Location: 136,136
  99. Nodesize: 36,20
  100.  
  101. Chance Market_share
  102. Title: Market~
  103. share
  104. Definition: S_growth(Share_now, Share_growth, (Year -  1992))
  105. Location: 224,184
  106. Nodesize: 36,20
  107.  
  108. Chance Market_now
  109. Title: Market~
  110. size now
  111. Units: Units
  112. Definition: Nominal_market*((Nominal_price/Price)^Pelasticity)
  113. Location: 136,80
  114. Nodesize: 36,20
  115. Nodeinfo: 1,1,1,1,1,1,0
  116. Fontstyle: New York, 18
  117.  
  118. Chance Pelasticity
  119. Title: Price~
  120. elasticity
  121. Definition: Lognorm80(1.2,1.8)
  122. Location: 48,128
  123. Nodesize: 36,20
  124.  
  125. Model Function_library
  126. Title: Function~
  127. library
  128. Description: Various useful functions including logistic S_curve~
  129. and probability distributions including Lognorm80,Log_Uniform, Logodds, Logodds_Normal.
  130. Author: Max Henrion
  131. Date: Wed, Dec 4, 1991 1:55 PM
  132. Location: 48,280
  133. Nodesize: 40,20
  134. Diagstate: 1,49,82,493,280,1
  135. Fontstyle: Geneva, 18
  136.  
  137. Function Lognorm70(a,b)
  138. Title: Lognorm70(a,b)
  139. Description: Lognormal probability distribution with a 70% probability between a and b, where 0<a<b.
  140. Definition: Lognormal(Sqrt(a*b), Sqrt(b/a))
  141. Location: 328,72
  142. Nodesize: 84,16
  143. Paramnames: A, B
  144.  
  145. Function Pr_logodds(lo)
  146. Title: Pr_Logodds(lo)
  147. Description: Gives the probability corresponding to logodds lo.
  148. Definition: 1-1/(1+10^(lo))
  149. Location: 96,144
  150. Nodesize: 80,16
  151. Paramnames: Lo
  152.  
  153. Function Logodds_pr(p)
  154. Title: Log0dds_Pr(p)
  155. Description: Gives log odds from probability p
  156. Definition: Logten(1/(1-p) -1)
  157. Location: 88,104
  158. Nodesize: 76,16
  159. Paramnames: P
  160.  
  161. Chance X
  162. Title: x
  163. Definition: [0.1,0.9]
  164. Location: 56,240
  165. Nodesize: 16,16
  166.  
  167. Chance Y
  168. Title: y
  169. Definition: getfract(Lognorm80(10,20), [0.1,0.9])
  170. Location: 96,240
  171. Nodesize: 16,16
  172.  
  173. Function Logodds_unif(p,q)
  174. Title: LogOdds_Unif(p, q)
  175. Description: Gives a distribution of values between p and q whose log-odds are uniform.  Assumes 0<p<q<1
  176. Definition: Pr_Logodds(Uniform(Logodds_pr(p), Logodds_pr(q)))
  177. Location: 336,112
  178. Nodesize: 96,16
  179. Paramnames: P, Q
  180.  
  181. Function Logodds_norm(p,s)
  182. Title: LogOdds_Norm(p, s)
  183. Description: Gives a distribution of frequencies whose log-odds are normally distributed, with median p and standard deviation factor s.~
  184. E.g.  LogOdds_Norm(0.1, 2) gives a distribution with median 0.1,~
  185. and 70% range from 0.05 (i.e.  0.1/2) to 0.2 (i.e. 0.1*2).
  186. Definition: Pr_Logodds(Normal(Logodds_pr(p), Logten(s)))
  187. Location: 336,160
  188. Nodesize: 100,16
  189. Paramnames: P, S
  190.  
  191. Function Lo_norm80(p, q)
  192. Title: Lo_Norm80(p, q)
  193. Description: Log odds normal distribution with p=10%ile and q=90%ile.~
  194. This is a distribution of values between 0 and 1, useful for things like market share.~
  195. If x is log odds normal distribution, then Ln(x/(1-x)) is normal.~
  196. NP: p and q must satisfy 0<p<q<1.
  197. Definition: Pr_Logodds(Normal((Logodds_pr(q)+Logodds_pr(p))/2, (Logodds_pr(q)-Logodds_pr(p))/ 2.5214))
  198. Location: 328,208
  199. Nodesize: 88,16
  200. Windstate: 1,104,114
  201. Paramnames: P, Q
  202.  
  203. Chance Z
  204. Title: z
  205. Definition: Lo_norm80(X,Y)
  206. Location: 144,240
  207. Nodesize: 16,16
  208.  
  209. Function S_growth(x0, g, t)
  210. Title: S_growth(x0, g, t)
  211. Description: An S-shaped growth function ~
  212. that starts at x0 at time t=0,  (NB x must satisfy 0<x0<1)~
  213. then grows nearly exponentially increasing by g each time period,~
  214. and finally flattens out as x approaches 1.~
  215. It uses a logistic function.~
  216. ~
  217. This is useful for such things as growth in market share that cannot exceed 100%.  If you want the result to have a maximum m different from 1, e.g. the total market size, then simply use the product "M*S_growth(x0,g,t)"
  218. Definition: 1/(1+ (1/x0-1)*Exp(-g*t))
  219. Location: 112,64
  220. Nodesize: 96,16
  221. Windstate: 1,264,274
  222. Paramnames: X0, G, T
  223.  
  224. Function Lognorm80(a,b)
  225. Title: Lognorm80(a,b)
  226. Description: Lognormal distribution with an 80% probability between a and b. ~
  227. a is 10%ile and b is 90%ile~
  228. NB 0<a<b.
  229. Definition: Lognormal(Sqrt(a*b), (b/a)^(1/2.5214))
  230. Location: 328,72
  231. Nodesize: 84,16
  232. Paramnames: A, B
  233.  
  234. Function Blame(x, y: Prob)
  235. Title: Blame(x, y)
  236. Description: The importance of the variable(s) x to variable y,~
  237. in the sense of the relative contribution of uncertainty about x to the uncertainty in y.~
  238. Computed as the absolute rank order correlation.~
  239. Absolute because negative dependencies are treated the same as positive dependencies.
  240. Definition: Abs(RankCorrel(x,  y))
  241. Location: 96,24
  242. Nodesize: 64,16
  243. Windstate: 1,40,50
  244. Paramnames: X, Y
  245.  
  246. Function Beta80(p, q)
  247. Title: Beta80(p, q)
  248. Description: A beta distribution with p=10%ile and q=90%ile.~
  249. This is a distribution of values between 0 and 1, useful for things like  percentage or market share.~
  250. NP: p and q must satisfy 0<p<q<1.
  251. Definition: Pr_Logodds(Normal((Logodds_pr(q)+Logodds_pr(p))/2, (Logodds_pr(q)-Logodds_pr(p))/ 2.5214))
  252. Location: 312,24
  253. Nodesize: 68,16
  254. Paramnames: P, Q
  255.  
  256. Function Range1(a, b, dx)
  257. Title: Range(a, b, dx)
  258. Description: A sequence of values from a to b at intervals of dx~
  259. For example Range(1, 3, 4) -> [1, 1.5, 2, 2.5, 3]
  260. Definition: Sequence(0,(b-a)/dx)*dx + a
  261. Location: 88,192
  262. Nodesize: 76,16
  263. Windstate: 1,89,388
  264. Paramnames: A, B, Dx
  265.  
  266. Close Function_library
  267. Chance Uncertain_inputs
  268. Title: Uncertain~
  269. inputs
  270. Definition: Table(Inputs_lab)(
  271. Unit_cost,Fixed_cost,Market_growth,Share_now,Share_growth,Pelasticity)
  272. Location: 312,232
  273. Nodesize: 40,20
  274. Nodeinfo: 1,0,1,1,1,1,0
  275. Windstate: 1,25,120
  276.  
  277. Chance Share_now
  278. Title: Share~
  279. now
  280. Description: Starting market share for Q
  281. Definition: Lo_norm80(0.05,0.15)
  282. Location: 136,184
  283. Nodesize: 36,20
  284.  
  285. Chance Share_growth
  286. Title: Share~
  287. growth
  288. Units: /year
  289. Description: Annual growth rate of market share (for small shares at which effect on 100% limit is negligible).
  290. Definition: LogNorm80(0.5,1.5)
  291. Location: 136,232
  292. Nodesize: 36,20
  293.  
  294. Objective Net_present_value
  295. Title: Net present~
  296. value
  297. Units: $
  298. Description: The net present value of the cash flow, discounted to the present.
  299. Definition: Sum(Profit/(1+Discount_rate)^(Year-1992), Year)
  300. Location: 408,184
  301. Nodesize: 44,20
  302.  
  303. Chance Discount_rate
  304. Title: Discount~
  305. rate
  306. Units: /year
  307. Definition: 20%
  308. Location: 312,184
  309. Nodesize: 36,20
  310.  
  311. Chance Importance
  312. Title: Importance
  313. Definition: Blame(Uncertain_inputs, Net_present_value)
  314. Location: 408,280
  315. Nodesize: 44,20
  316. Valuestate: 1,5,267,505,163,1,MIDM
  317.  
  318. Chance Nominal_price
  319. Title: Nominal~
  320. price
  321. Units: $/unit
  322. Definition: 500
  323. Location: 48,24
  324. Nodesize: 36,20
  325.  
  326. Chance Nominal_market
  327. Title: Nominal~
  328. market
  329. Units: units
  330. Definition: Lognorm80(10K, 20K)
  331. Location: 48,80
  332. Nodesize: 36,20
  333.  
  334. Index Inputs_lab
  335. Title: Inputs~
  336. labels
  337. Definition: ['Unit cost','Fixed cost','Market grow','Share now','Share grow','Elasticity']
  338. Location: 312,280
  339. Nodesize: 40,20
  340. Windstate: 1,205,463
  341.  
  342. Close Q_marketing
  343.